|
AutoCAD VBA : sendcommand
Bernd P am 21.09.2007 um 12:38 Uhr (0)
ServusWill aus Excel einen Befehl in Autocad aufrufen und hab das im Forum gefunden. Der Befehl wird durch Formeln zusammengestellt und steht in im Layout Bestimmt Zelle D13.Ich weiß das bei vbastmt der Befehl aus der Zelle reingehört aber wie hab ich keinen Schimmer.Der Befehl dreht in Acad das UCS auf Welt setzt einen Block mit Attribut und dreht dann UCS wieder zurück.Code:(command "_ucs" "_w") (command "_insert" "Kot_Hoehe_LP" "-101941.8499051,203057.2992329" "" "" "" "1023.2" ) (command "_ucs" "_p")Co ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : sendcommand
Bernd P am 09.10.2007 um 08:18 Uhr (0)
ServusDer Code funktioniert jetzt soweit danke @allHier der Code für Eine ZelleCode:Sub Export_Bestimmt2() Dim acApp As Object, x, y Application.ScreenUpdating = False Set acApp = GetObject(, "Autocad.application") x = acApp.activedocument.FullName y = Worksheets("bestimmt").Cells(13, 4).Value AppActivate "Autocad 2006" acApp.activedocument.sendcommand "commandName" & chr(13) acApp.activedocument.sendcommand y AppActivate "Microsoft Excel" Sheets("start").SelectEnd Submehrere Zellen untereinander ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : sendcommand
Bernd P am 08.10.2007 um 16:20 Uhr (0)
ServusGenau das war das Problem wie bekomme ich den String StringAusExcelFeld richtig rüber.Hier auch der Code zum persönlichen anpassen (die FETT markierten stellen.)Code:Sub Export_Bestimmt2() Dim acApp As Object, x, y Application.ScreenUpdating = False Set acApp = GetObject(, "Autocad.application") x = acApp.activedocument.FullName y = Worksheets("bestimmt").Cells(13, 4).Value AppActivate "Autocad 2006" acApp.activedocument.sendcommand "commandName" & chr(13) acApp.activedocument.sendcommand y ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : sendcommand
Bernd P am 08.10.2007 um 15:41 Uhr (0)
ServusJo mei, wenn mans logisch durch denkt gehts eh.Code:Sub Export_Bestimmt2() Dim acApp As Object, x, y Application.ScreenUpdating = False Set acApp = GetObject(, "Autocad.application") x = acApp.activedocument.FullName y = Worksheets("bestimmt").Cells(13, 4).Value AppActivate "Autocad 2006" acApp.activedocument.sendcommand "commandName" & chr(13) acApp.activedocument.sendcommand y AppActivate "Microsoft Excel" Sheets("start").SelectEnd Sub------------------"Warum Einfach es geht auch komplizi ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Attribute in AutoCAD über Excel VBA ausfüllen lassen
Bernd P am 14.05.2017 um 14:54 Uhr (1)
servushttp://ww3.cad.de/foren/ubb/Forum54/HTML/026881.shtml#000001 ----------------------- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark Bernd P.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Attribute in AutoCAD über Excel VBA ausfüllen lassen
Bernd P am 15.05.2017 um 12:03 Uhr (1)
Sorry mein Fehler ich sollte mehr schreiben Attributtext ändern bei Skript-Programmierung.----------------------- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark Bernd P.
|
| In das Form AutoCAD VBA wechseln |
